home *** CD-ROM | disk | FTP | other *** search
/ CyberMycha 2008 January / Cybermycha 1_2008.iso / Data.cab / _28676B3899514A80A224BF9E7B90BCB0 < prev    next >
Encoding:
Text File  |  2004-03-18  |  997 b   |  36 lines
  1. regc(0, "TFACTOR")
  2. regc4f( 4, 0, 0, 0, %sunvisibility )
  3. regc4f( 5, %daycolor_r, %daycolor_g, %daycolor_b, %skycolor_a )
  4. regc4f( 7, %ambient_r, %ambient_g, %ambient_b, %ambient_a )
  5. pshader("
  6.  
  7. ps_1_1
  8.  
  9. def    c3, 0.8, 0.7, 0.4, 0    ;RGB:Lights in windows color
  10.  
  11. tex t0 ;texture (RGB - color, A<0-127> - Opacity, A<128-255> - Specular Mask)
  12. tex t1 ;Cubemap
  13.  
  14.  
  15.     mul_sat        r1.rgb, t1, t0_bx2.a            ;applying mask to cubemap
  16.     +mul_x2_sat    r1.a, t0.a, c4.a                ;extraction specular mask
  17.  
  18.     mad_sat        r0.rgb, v1, r1.a, t0            ;applying specular to color
  19.     +mad_sat    r0.a, v0.b, c7.b, c7.a            ;applying ambient to lighting
  20.  
  21.     add_sat        r0.rgb, r0, r1                    ;applying cubemap to color
  22.  
  23.     mul            r0.rgb, r0, r0.a                ;applying lighitng to color
  24.  
  25.     mul         r0.rgb, r0, c5                  ;Day
  26.     +mov        r0.a, c5.a
  27.  
  28.     mul            t0.rgb, t0, c3
  29.     +cnd_sat    t0.a, r0.a, t0_bx2.a, c3.a
  30.  
  31.     mad_sat     r0.rgb, t0, t0.a, r0            ;Lights in window    m
  32.     +mov        r0.a,    c0.a                    ;Object blending
  33.  
  34. ")
  35.  
  36.